100 div dup 3 1 roll mul 1 add exch sub  } WMsettransfer